home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 December
/
1987-12.d64
/
scr reader.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
708b
|
20 lines
10 poke 53280,5:poke 53281,5
20 print"[147][144]the screen reader program included"
30 print"with the dynamic screen article is a"
40 print"subroutine intended to be used with"
50 print"your own programs. the gazette disk does";
60 print"not contain any dynamic screen files,"
70 print"therefore this program cannot run from"
80 print"the menu. the filename on the disk is"
90 print"dyn scr reader."
100 ford=1to40:print"[164]";:next
110 print" press any key to reload the menu [146]"
120 getdh$:if dh$=""then120
130 if peek(65530)=5 then goto190
140 poke198,0:wait198,1:getdh$
150 print"[147]":s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
160 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
170 poke53281,15:poke53280,15
180 printchr$(142)"[145] reloading the menu[155]":end
190 sys 65341:end